User's Choice Windows CD

home *** CD-ROM | disk | FTP | other *** search

/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / misc1 / ami301c.zip / QKSEND.SM$ / QKSEND.SMM

Wrap

INI File | 1993-05-24 | 37KB | 2,972 lines

[ver] 4 [sty] [files] [charset] 82 ANSI (Windows, IBM CP 1252) [revisions] 0 [prn] QMS-PS 810 [port] LPT1: [lang] 1 [desc] Compose Lotus Mail message in Ami Pro 738287596 38 729389285 1963 15 0 0 0 0 1 [fopts] 0 1 0 0 [lnopts] 2 Body Text 1 [docopts] 5 2 [GramStyle] [ParaNum] 1 [tag] Body Text 2 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 2 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Text 0 0 [tag] Body Single 3 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Body Single 0 0 [tag] Bullet 4 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*0> 360 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Bullet 0 0 [tag] Bullet 1 5 [fnt] Times New Roman 240 0 49152 [algn] 1 1 288 288 288 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*5> 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Bullet 1 0 0 [tag] Number List 6 [fnt] Times New Roman 240 0 49152 [algn] 1 1 360 360 360 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 <*:>. 360 1 1 0 16 0 0 [nfmt] 272 1 2 . , $ Number List 0 0 [tag] Subhead 7 [fnt] Times New Roman 240 0 49155 [algn] 1 1 0 0 0 [spc] 33 273 1 72 72 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 1 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Subhead 0 0 [tag] Title 8 [fnt] Arial 360 0 16385 [algn] 4 1 0 0 0 [spc] 33 446 1 144 72 1 100 [brk] 16 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 272 1 2 . , $ Title 0 0 [tag] Header 9 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Header 0 0 [tag] Footer 11 [fnt] Times New Roman 240 0 49152 [algn] 1 1 0 0 0 [spc] 33 273 1 0 0 1 100 [brk] 4 [line] 8 0 1 0 1 1 1 10 10 1 [spec] 0 0 0 1 1 0 0 0 0 [nfmt] 280 1 2 . , $ Footer 0 0 [lay] Standard 513 [rght] 15840 12240 1 1440 1440 1 1440 1440 0 1 0 1 0 2 1 1440 10800 12 1 720 1 1440 1 2160 1 2880 1 3600 1 4320 1 5040 1 5760 1 6480 1 7200 1 7920 1 8640 [hrght] [lyfrm] 1 11200 0 0 12240 1440 0 1 3 1 0 0 0 0 0 0 0 0 1 [frmlay] 1440 12240 1 1440 72 1 792 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [frght] [lyfrm] 1 13248 0 14400 12240 15840 0 1 3 1 0 0 0 0 0 0 0 0 2 [frmlay] 15840 12240 1 1440 792 1 14472 1440 0 1 0 1 1 0 1 1440 10800 2 2 4680 3 9360 [txt] > [elay] [l1] 0 [edoc] <:#284,9360>'To: <:#284,9360>'Subject: <:#284,9360>'CC: <:#284,9360>'Attachments: <:#284,9360> 'Macro to automatically create a notes mail item based on the info in an Ami Pro doc. <:#284,9360>' Peyton McManus <:#284,9360>' Lotus WPD <:#284,9360>' Feb. 10 1992 <:#284,9360> <:#284,9360> <:#284,9360> @Subhead@<:#284,9360>' Defines <:#284,9360>Define NotesDDE(Command ) DDEExecute(id, %1) <:#284,9360>Define MergeOpts() GetInfo(165) <:#284,9360>Define Buffer 75 @Outline2@<:#284,9360>Define Move 21 @Outline2@<:#284,9360>Define Remove 22 @Outline2@<:#284,9360>Define OK 20 @Outline2@<:#284,9360>Define Init 0 @Outline2@<:#284,9360>Define Frame 0 @Outline2@<:#284,9360> <:#284,9360>Define AnyFootNotesFlag() GetInfo(24) <:#284,9360>Define GETGOTOITEMLEGALFLAG() GetInfo(86, %1) <:#568,9360>Define ErrorMerge "Merging could not continue. Could not send mail. This name may not be in the address book." <:#284,9360> @Outline2@<:#568,9360>Define SendMessage(hwnd, message, wparam, lparao) dllcall("user,SendMessage,JHHHJ", %1, %2, %3, %4) @Outline2@<:#284,9360>Define GetActiveWindow() DllCall("user,GetActiveWindow,H") @Outline2@<:#284,9360>Define InvalidateRect(hwnd, stuff, H) DllCall("user,InvalidateRect,HHFH", %1, %2, %3) <:#284,9360>DEFINE GetClientRect() DLLCALL("User,GetClientRect,HHN",%1,%2) <:#284,9360>define FindWindow() DllCall("user,FindWindow,HCC", %1, %2) @Outline2@<:#284,9360>Define Getfocus() DllCall("user,GetFocus,H") @Outline2@<:#284,9360>define WM_USER 1024 @Outline2@<:#284,9360>define LB_GETCURSEL 1033 @Outline2@<:#284,9360>define LB_DELETESTRING 1027 @Outline2@<:#284,9360>define LB_GETCOUNT 1036 @Outline2@<:#284,9360>define LB_GETTEXT 1034 @Outline2@<:#284,9360>define LB_SETCURSEL 1031 @Outline2@<:#284,9360>define WM_SETREDRAW 0x000B @Outline2@<:#284,9360>define LB_FINDSTRING 1040 @Outline2@<:#284,9360>Define ShowCaret() dllcall("user,ShowCaret,HA", %1) @Outline2@<:#284,9360>Define HideCaret() dllcall("user,HideCaret,HA", %1) <:#284,9360>Define SetFocus() DllCall("User,SetFocus,HH",%1) <:#284,9360>define CloseDlg(id) dllcall("user,PostMessage,HHHHHH", HDLG, 0X111, %1, 0, 0). Define GetActiveTextWin() GetInfo(267) Define QuestionText "This document may contain a table, frame or a footnote; to maintain these items, attach this file to the message. {Text} '{filename}' to the message?" @Outline2@ @Outline2@define IsOKToRun(menuname) GetInfo(217, 24, %1); @Subhead@' Declares Declare GetAddress(cTo, cCC,cSubject, cAttachments) Declare Findit(word, body, LowestPos) Declare CopyClip(LowestPos) Declare MailBox(cTo, cCC,cSubject, cAttachments) Declare SendIt(cTo, cCC, cSubject, cAttachments) Declare InitDDE(MailServer) Declare MergeIt(fileName, Descrip) Declare DarkModeMacro(Param, hWnd) @Outline2@Declare SendParse(Id, Command, String) @Outline2@Declare Ltrim(String) @Outline2@Declare CheckForFrame() @Outline2@Declare DisplayQuestion(cAttachments) @Outline2@Declare StripDown(Word, Phrase) @Outline2@Declare TryToExec() declare Navigate(xapp, ExeName) ' <:f200,QCourier,0,0,255>declare user defined functions declare getprofile(xappname) declare writeprofile(path, xappname) declare tryit(path, xapp) <:f200,QCourier,0,0,255> @Outline2@ @Outline2@ @Subhead@Function Menus() menu="&File" item="&Quick Send..." mac=getrunningmacrofile$() CheckMenuItem(1, menu, item, 1) if not CheckMenuItem(1, menu, item,, 1) insertmenuitem(1, menu, 13, "-", "", "") insertmenuitem(1, menu, 13, item, "{mac}!Main", "Send memo on screen.") return 1 else mactocall="{mac}!Main" calli mactocall() endif CheckMenuItem(1, menu, item, 0) end function @Subhead@Function Main(Param) DefStr cTo, cSubject, cCC, cAttachments, Id, hWnd; If GetOpenFileCount()<<1 Return -1 Endif OnError Done FileName = StrField$(MergeOpts(), 8,",") Descrip = StrField$(MergeOpts(),10,",") DarkModeMacro("on", &hWnd) @Outline2@HourGlass(on) @Outline2@HideCaret("") @Outline2@ @Outline2@If FileName != "" ' if the filename is not null, this is a merge doc If -1 = MergeIt(Filename, Descrip) ' did not want to merge Else DarkModeMacro("off",hWnd) HourGlass(off) Return 0; ' merged now done Endif Endif GetAddress(&cTo, &cSubject, &cCC, &cAttachments) DarkModeMacro("off",hWnd) If CheckForFrame() If DisplayQuestion(&cAttachments) HourGlass(off) Return -1 Endif Endif HourGlass(off) If -1 = MailBox(&cTo, &cCC,&cSubject, &cAttachments) Else SendIt(&cTo, &cCC, &cSubject, &cAttachments) Endif Done: StatusBarMsg("") ShowCaret("") End Function @Subhead@Function MergeIt(FileName, Descrip) DefStr cTo, cCC, cSubject, cAttachments; If Not Decide("Would you like to merge this file to your EMail service?","Ami Pro") Return -1 Endif StatusBarMsg("Now merging to EMail server") MergeMacro(0,Filename, Descrip) GetAddress(&cTo, &cSubject, &cCC, &cAttachments) SendIt(&cTo, &cCC, &cSubject, &cAttachments) While 1 = MergeAction(2) GetAddress(&cTo, &cSubject, &cCC, &cAttachments) If 0 = SendIt(&cTo, &cCC, &cSubject, &cAttachments) Else ' Sendit returned a -1 so something is not right Message(ErrorMerge, "Ami Pro") MergeAction(4) ' stop the merge Break; Endif Wend StatusBarMsg("") Return 0; End Function @Subhead@Function SendIt(cTo, cCC, cSubject, cAttachments) DefStr Id, Person, ccPerson, MailServer, Stuff, Stat; HourGlass(on) MailTo = *cTo; MailCC = *cCC; MailSubject = *cSubject; AttachFile = *cAttachments; x = 1; y = 1; If 0= Assign(&id, InitDDE(&MailServer)) HourGlass(off) Return -1; Endif NotesDDE("NewMessage") StatusBarMsg("Sending message to {MailTo}") SendParse(Id, "To", Mailto) SendParse(Id, "CC", MailCC) SendParse(Id, "AttachFile",Ucase$(AttachFile)) If "" != MailSubject NotesDDE("Subject {MailSubject}") Endif If MailServer = "Notes" If IsOkToRun(Paste) ' If we can copy something from this doc, we will paste If -1 = NotesDDE("PasteClip") Message("Could not send mail.","Ami Pro") DDETerminate(Id) HourGlass(off) Return -1 Endif Endif Else ' This is the ccMail side If IsOkToRun(Paste) ' If we can copy something from this doc, we will paste If -1 =Assign(&Stat, NotesDDE("Paste")) Message("Could not send mail. {Stat}","Ami Pro") DDETerminate(Id) HourGlass(off) Return -1 Endif Endif Endif NotesDDE("Send") DDETerminate(Id) HourGlass(off) End Function @Subhead@Function SendParse(id, Command, String) DefStr Item; x = 1 While -1 != Assign(&Item, StrField$(String, x,",")) Item = Ltrim(Item) If Command = "AttachFile" If FindFirst$(Item,0) NotesDDE("{Command} {Item}") Endif Else If "" != Item NotesDDE("{Command} {Item}") Endif Endif x = x + 1 Wend End Function @Subhead@Function GetAddress(cTo, cSubject, cCC, cAttachments) LowestPos= 0; Findit("to:", &cTo, &LowestPos) If 0 = Findit("subject:", &cSubject, &LowestPos) Findit("re:", &cSubject, &LowestPos) Endif Findit("cc:", &cCC, &LowestPos) If 0 = Findit("attachment:",&cAttachments, &LowestPos) Findit("attachments:",&cAttachments, &LowestPos) Endif CopyClip(LowestPos) End Function @Subhead@Function FindIt(Word, body, LowestPos) Stat = Replace(0,0,8196,Word,"") If Stat = 1 Type("<[>CtrlUp]") Type ("<[>CtrlDown]") para = GetTextBeforeCursor$() Para = StripDown(Word, Para); *Body = Para; pos = StrField$(CursorPosition$(),2,",") If Pos << *LowestPos; *LowestPos = Pos; Endif Return 1 Endif Return 0 End Function @Subhead@Function StripDown(Word, Phrase) LenWord = Len(word) LenPhrase = Len(Phrase) Temp = Right$(phrase,LenPhrase - LenWord) For t =1 to Len(Temp) Char = Left$(Temp, 1) If 0 = Instr(0, " :",Char) Break; Else Temp = Right$(Temp, Len(Temp) - 1) Endif Next Return Temp End Function @Subhead@Function CopyClip(LowestPos) IgnoreKeyboard(2) Question = QuestionText y = StrField$(CursorPosition$(),2,",") If LowestPos = 0 Type ("<[>CtrlHome]") Else While y <;>LowestPos Type ("<[>Down]") y = StrField$(CursorPosition$(),2,",") Wend Type ("<[>left]<[>CtrlDown]<[>Right]") Endif Type ("<[>ShiftCtrlEnd]") If IsOkToRun(copy) Copy() Else ClipboardWrite("",1) ' nothing to copy, clean the clipboard so we don't paste other data Endif Type ("<[>Esc]") End Function @Subhead@Function DisplayQuestion(cAttachMents) Attach = *cAttachments; If FileChanged(0,0) Text = "Save and attach" Else Text = "Attach" Endif FileName = GetDocInfo$(1) Stat = MultiDecide(QuestionText,3, "Ami Pro") Switch Stat Case 2 ' Cancel Return 1; Break; Case 6 ' Yes Filename = GetOpenFileName$() If FileName = "" If SaveAs FileName = GetOpenFileName$() Else Return 0; Endif Else Save() Endif ' now I will add the file to the attachment list If Attach=""; *cAttachments = FileName; Else *cAttachments = StrCat$(attach, ",","{FileName}") Endif Return 0; Case 7 ' No Return 0; Break; EndSwitch End Function @Subhead@Function CheckForFrame() If AnyFootNotesFlag() Return 1 Endif If GetGotoItemLegalFlag(Frame) Return 1; endif Count = GetStyleCount() Dim StyleName(Count) GetStyleNames(&StyleName) If 0 != ArraySearch(&StyleName, "Table Text") Return 1 Endif End Function @Subhead@Function DarkModeMacro(Param, hWnd) @Outline2@ @Outline2@Dim A(4) @Outline2@Param = lCase$(Param) @Outline2@switch Param @Outline2@ Case "on"; @Outline2@ *hWnd = GetActiveTextWin() @Outline2@ MarkBookMark("DarkMode",AddBookMark) @Outline2@ SendMessage(hWnd, WM_SETREDRAW, 0, "") @Outline2@ Case "off" @Outline2@ SendMessage(hWnd, WM_SETREDRAW,1,"") @Outline2@ MarkBookMark("DarkMode",FindBookMark) @Outline2@ MarkBookMark("DarkMode", DeleteBookMark) @Outline2@ GetClientRect(hWnd, &A) @Outline2@ InvalidateRect(hWnd, &A,1) @Outline2@ Default @Outline2@ ' Didn't understand @Outline2@EndSwitch @Outline2@End Function @Subhead@Function InitDDE(MailServer) IgnoreKeyboard(2) DefStr TempId, Char; Attempt = 0 Count = 1; While Count << 7 If AppIsRunning("Lotus Notes") AppName = "Notes"; *MailServer = "Notes"; Elseif AppIsRunning("cc:Mail") AppName = "wMail"; *MailServer = "ccMail"; Else ' We need to exec one If Attempt = 0 Stat = TryToExec() Attempt = 1 ' don't try to exec again Endif Endif If 0 != Assign (&TempId , DDEInitiate(AppName,"SendMail")) ' we have a real id Break; Endif Count = Count + 1 Wend Return TempId; End Function @Subhead@Function TryToExec() defStr I, char, path, Findexe; AppName = GetProfileString$("LotusMail","Application", "Win.ini") FullName = GetProfileString$("LotusMail","Program","Win.Ini") If 0 !=Assign(&i, Len(FullName)) While "\" != Assign(&Char, Mid$(FullName, i, 1)) i = i - 1 Wend Path = Left$(FullName, i) TempExeName = Right$(Fullname, Len(FullName) - i ) if tryit(Path, TempExeName) <;> 31 ' <:f200,QCourier,0,0,255>if we launch, get out<:f> return 1 endif Endif ' if we are here, we did not start app and we need to ask what app to start StoredPath = Strfield$(GetProfile("mail"),1,",") StoredExe = Strfield$(GetProfile("mail"),2,",") if tryit(StoredPath, StoredExe) <;> 31 ' <:f200,QCourier,0,0,255>if we launch, get out<:f> return 1 endif Text = "your mail service." if assign(&path, Navigate(Text, &FindExe)) <<<;> 0 ' <:f200,QCourier,0,0,255>show me where the exe is if tryit(path, FindExe) <;> 31 writeprofile(path, Findexe) Return 1 endif endif Return 0 End function @Subhead@function tryit(path, app) ' <:f200,QCourier,0,0,255>this function attemts to exec the app doschdir(path) return exec(strcat$(path, app), "",2) end function @Subhead@function writeprofile(path, ExeName) ' <:f200,QCourier,0,0,255>save the path if exec works writeprofilestring("LotusApps", "Mail", StrCat$(path","ExeName), "amipro2.ini") end function @Subhead@function getprofile(appname) ' <:f200,QCourier,0,0,255>get the path of successful exec defstr path; if assign(&path, getprofilestring$("LotusApps", appname, "amipro2.ini")) <<<;> "" return path endif return getprofilestring$("LotusApps", appname, "amipro.ini") end function @Subhead@function Navigate(app, FindExe ) ' <:f200,QCourier,0,0,255>ask user for location of exe defstr box; Mac = GetRunningMacroFile$() filledit(9001, "*.exe") filledit(8007, app) @Outline3@DlgKeyInterrupt(112, "{mac}!DisplayHelp") @Outline3@ if assign(&box, dialogbox(".", "findapp")) <<<;> 1 return 0 endif *Findexe = GetdialogField$(9001); return getcurrentdir$(); end function <:f200,QCourier,0,0,255> @Subhead@function DisplayHelp() @Outline2@' two defines needed for help. The help name and panel number are defined above @Outline2@define FindWindowa() DllCall("user,FindWindow,HCC", %1, %2) @Outline2@define WinHelpa(hWnd, file, cmd, ptr) DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4) @Outline2@prohWnd = FindWindowa("AmiProWndA", 0) @Outline2@helpfile = strcat$(GetAmiDirectory$(), "HelpPack.hlp") @Outline2@PanelNum= 135 @Outline2@WinHelpa(prohWnd, helpfile, 0x0001, Panelnum) @Outline2@end function @Subhead@ @Subhead@function MailBox(cTo, cCC,cSubject, cAttachments) @Outline2@Mac = GetRunningMacroFile$() @Outline2@IgnoreKeyBoard(2) @Outline2@if *cTo != ""; @Outline2@ 'find out if the box should pop; if it shouldn't, we're done, return 1 @Outline3@ inifile="AMIPRO2.INI" @Outline3@ showbox=getprofilestring$("AmiMailer", "DisplayBox", inifile) @Outline3@ if showbox= "" @Outline3@ showbox="yes" @Outline3@ WriteProfileString("AmiMailer", "DisplayBox", showbox, inifile) @Outline3@ endif @Outline3@ if showbox="no" @Outline3@ return 1 @Outline3@ endif @Outline2@endif @Outline2@AllocGlobalVar("Files",1) @Outline2@Attach = *cAttachments; @Outline2@SetGlobalVar("Files",Attach); @Outline2@ @Outline2@filledit(8000, cTo) @Outline2@filledit(8001, cCC) @Outline2@filledit(8002, cSubject) @Outline2@SetDlgCallBack(21,"{Mac}!Attacher") @Outline3@DlgKeyInterrupt(112, "{mac}!DisplayHelp") @Outline3@ @Outline2@box=dialogbox(".", "mailbox") @Outline2@if box != 1 @Outline2@ FreeGlobalVar("Files") @Outline2@ return -1 @Outline2@endif @Outline2@*cTo=GetDialogField$(8000 ); @Outline2@*cCC=GetDialogField$(8001 ); @Outline2@*cSubject=GetDialogField$(8002 ); @Outline2@*cAttachMents = GetGlobalVar$("files"); @Outline2@FreeGlobalVar("Fil.es") @Outline2@Checkbox=GetDialogField$(20 ) @Outline2@if CheckBox= 1 @Outline2@ WriteProfileString("AmiMailer", "DisplayBox", "no", inifile) @Outline2@Else @Outline2@ WriteProfileString("AmiMailer", "DisplayBox", "yes", inifile) @Outline2@ @Outline2@endif @Outline2@return 1 @Outline2@end function @Function@ @Function@ @Function@ @Subhead@function attacher(Hdlg, id, value) @Outline2@DefStr Data; @Outline2@rmac=GetRunningMacroFile$() @Outline2@pathnow = GetCurrentDir$() @Outline2@FillEdit(7999, "{pathnow}") @Outline2@SetDlgCallBack (21,"{rmac}!MoveIt") @Outline2@SetDlgCallBack (22,"{rmac}!MoveIt") @Outline2@SetDlgCallBack (20,"{rmac}!MoveIt") @Outline2@SetDlgCallBack(0, "{rMac}!MoveIt") @Outline3@DlgKeyInterrupt(112, "{rmac}!DisplayHelp") @Outline2@box = dialogbox(".", "Attach") @Outline2@SetFocus(Hdlg) @Outline2@end function @Function@ @Function@ @Subhead@Function MoveIt(Hdlg, Id, Value) @Function@hAttach = GetDlgItem(Hdlg, 9002) @Function@HFiles = GetDlgItem(Hdlg, 9001) @Function@DefStr Item, Data; @Function@Switch Id @Function@ Case Move @Outline2@ Name = GetDlgItemText(Hdlg, 9001) @Outline2@ if Instr(0,Name, "]") !=0 @Outline2@ exit function @Outline2@ endif @Outline2@ Filename=lcase$(strcat$(GetCurrentDir$(), Name)) @Outline2@ If -1 = AppSendMessage(hAttach,LB_FINDSTRING, -1, Filename) @Outline2@ setdlgitemtext(hdlg, 9002, Filename) @Function@ Endif @Function@ Break; @Function@ Case Remove @Outline2@ idx = AppSendMessage (hAttach, LB_GETCURSEL, 0, 0) @Outline2@ x=AppSendMessage (hAttach, LB_DELETESTRING, idx, 0) @Function@ Break; @Function@ Case OK @Outline2@ count = AppSendMessage (hAttach, LB_GETCOUNT, 0, 0) @Outline2@ for i=1 to count @Outline2@ AppSendMessage(hAttach, LB_SETCURSEL, i - 1, 0) @Outline2@ Item = GetDlgItemText(Hdlg, 9002) @Outline2@ If Item != "" @Outline2@ Stuff = StrCat$(Stuff, ", ",Item) @Outline2@ Endif @Outline2@ next @Outline2@ If Stuff != "" @Outline2@ Stuff = Right$(Stuff, Len(Stuff) - 2) @Outline2@ Endif @Outline2@ SetGlobalVar("Files",Stuff) @Outline2@ 'sendkeys("<[>altz]") CloseDlg(2) @Outline2@ Break; @Function@ Default @Function@ ' this is my Init function, @Outline2@ Files = GetGlobalVar$("Files") @Outline2@ x = 1 @Outline2@ While -1 != Assign(&Data, StrField$(Files, x,",")) @Outline2@ Data = Ltrim(Data) @Outline2@ If Data != "" @Outline2@ setdlgitemtext(hdlg, 9002, Data) @Outline2@ Endif @Outline2@ x = x + 1; @Outline2@ Wend @Function@EndSwitch @Function@End Function @Function@ @Function@ @Function@ @Subhead@Function LTrim(String) @Function@If String = " " @Function@ Exit Function @Function@Endif @Function@While Left$(String,1) =" " @Function@ String = Right$(String, Len(String) - 1 ) @Function@Wend @Function@Return String @Function@End Function @Function@ @Subhead@' dialogs DIALOG Attach -2134376448 9 49 56 256 102 "" "AmiDialog" "Attach Files" FONT 8 "Helv" 213 3 40 14 20 1342373889 "button" "OK" 0 213 19 40 14 2 1342373888 "button" "Cancel" 0 3 14 60 80 9001 1352728579 "listbox" "" 0 111 14 98 80 9002 1352728577 "listbox" "" 0 66 32 43 14 21 1342373888 "button" "Move <;><;>" 0 66 50 43 14 22 1342373888 "button" "<<<< Remove" 0 3 2 82 10 7999 1342177280 "static" "text" 0 112 2 56 10 1001 1342177280 "static" "Attachments:" 0 238 182 10 14 1 1342373888 "button" "&z" 0 @Function@END DIALOG @Function@ @Function@ DIALOG mailbox -2134376448 9 55 58 198 57 "" "AmiDialog" "Confirm Mail to Send" FONT 8 "Helv" 4 8 28 10 1000 1342177280 "static" "To:" 0 38 6 108 12 8000 1350631552 "edit" "" 0 4 22 28 10 1001 1342177280 "static" "cc:" 0 38 20 108 12 8001 1350631552 "edit" "" 0 4 36 28 10 1002 1342177280 "static" "Subject:" 0 38 34 108 12 8002 1350631552 "edit" "" 0 153 4 40 14 1 1342373889 "button" "OK" 0 153 20 40 14 2 1342373888 "button" "Cancel" 0 153 36 40 14 21 1342373888 "button" "Attach..." 0 @Function@END DIALOG @Function@ @Function@ @Function@DIALOG findapp -2134376448 7 70 35 200 97 "" "" "Find Application" FONT 8 "Helv" 7 34 59 8 1000 1342177280 "static" "&Program path:" 0 6 45 60 44 9001 1352728579 "listbox" "" 0 155 5 40 14 1 1342373889 "button" "OK" 0 155 21 40 14 2 1342373888 "button" "Cancel" 0 68 34 80 8 7999 1342177280 "static" "" 0 7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0 7 16 107 8 8007 1342177280 "static" "" 0 END DIALOG @Function@ > [Embedded] 00024654 > [macsum] 26 Menus 0 0 5 72 Main 310 1 9 88 MergeIt 980 2 5 133 SendIt 1522 4 13 159 SendParse 2368 3 3 213 GetAddress 2690 4 2 232 FindIt 2962 3 4 245 StripDown 3242 2 6 263 CopyClip 3623 1 5 281 DisplayQuestion 4111 1 5 304 CheckForFrame 4820 0 3 342 DarkModeMacro 5039 2 2 359 InitDDE 5471 1 7 379 TryToExec 5907 0 11 408 tryit 6703 2 1 439 writeprofile 6786 2 1 444 getprofile 6885 1 2 448 Navigate 7059 2 3 456 DisplayHelp 7281 0 4 472 MailBox 7467 4 7 485 attacher 8250 3 5 532 MoveIt 8499 3 13 547 LTrim 9672 1 1 598 Attach 9859 0 -1 613 mailbox 10379 0 -1 629 findapp 10891 0 -1 644 [macse] 14 Menus 7 "&File" 8 1 7 "&Quick Send..." 8 2 0 802 13 8 3 0 518 1 "{1}" "{2}" 1 0 518 1 "{1}" "{2}" 1 13 1 3 11 00000246 0 527 1 "{1}" 13 "-" "" "" 0 527 1 "{1}" 13 "{2}" "{3}!Main" "Send memo on screen." 5 1 15 9 10 00000275 7 "{3}!Main" 8 4 16 "{4}" 0 518 1 "{1}" "{2}" 0 6 0 15 9 14 Main 0 1050 13 5 1 18 5 11 00000058 5 -1 15 9 20 00000618 0 1313 165 13 0 20 [X] 8 "," 13 8 8 0 1313 165 13 0 20 [X] 10 "," 13 8 9 16 DarkModeMacro "on" &7 0 296 1 0 284 "user,HideCaret,HA" "" 6 8 7 "" 18 1 11 00000366 5 -1 16 MergeIt "{8}" "{9}" 13 18 0 11 00000315 10 00000366 16 DarkModeMacro "off" "{7}" 0 296 0 5 0 15 9 16 GetAddress &2 &3 &4 &5 16 DarkModeMacro "off" "{7}" 16 CheckForFrame 13 11 00000520 16 DisplayQuestion &5 13 11 00000520 0 296 0 5 -1 15 9 0 296 0 5 -1 16 MailBox &2 &4 &3 &5 13 18 0 11 00000595 10 00000618 16 SendIt &2 &4 &3 &5 0 789 "" 0 284 "user,ShowCaret,HA" "" 6 1 15 9 14 MergeIt 0 2 "Would you like to merge this file to your EMail service?" "Ami Pro" 13 1 3 11 00000121 5 -1 15 9 0 789 "Now merging to EMail server" 2 110 4 0 "{0}" "{1}" 16 GetAddress &3 &5 &4 &6 16 SendIt &3 &4 &5 &6 5 1 2 116 1 2 13 18 0 11 00000508 16 GetAddress &3 &5 &4 &6 5 0 16 SendIt &3 &4 &5 &6 13 18 0 11 00000361 10 00000495 0 3 "Merging could not continue. Could not send mail. This name may not be in the address book." "Ami Pro" 2 116 1 4 10 00000508 10 00000231 0 789 "" 5 0 15 9 6 2 15 9 14 SendIt 0 296 1 27 0 8 11 27 1 8 12 27 2 8 13 27 3 8 14 5 1 8 15 5 1 8 16 5 0 16 InitDDE &8 13 0 805 &5 [X] 13 18 0 11 00000173 0 296 0 5 -1 15 9 0 11 "{5}" "NewMessage" 0 789 "Sending message to {11}" 16 SendParse "{5}" "To" "{11}" 16 SendParse "{5}" "CC" "{12}" 0 18 "{14}" 13 16 SendParse "{5}" "AttachFile" [X] 7 "" 6 13 18 1 11 00000407 0 11 "{5}" "Subject {13}" 6 8 7 "Notes" 18 0 11 00000615 0 1313 217 24 155 13 11 00000602 5 -1 0 11 "{5}" "PasteClip" 13 18 0 11 00000602 0 3 "Could not send mail." "Ami Pro" 0 9 "{5}" 0 296 0 5 -1 15 9 10 00000795 0 1313 217 24 155 13 11 00000795 5 -1 0 11 "{5}" "Paste" 13 0 805 &10 [X] 13 18 0 11 00000795 0 3 "Could not send mail. {10}" "Ami Pro" 0 9 "{5}" 0 296 0 5 -1 15 9 0 11 "{5}" "Send" 0 9 "{5}" 0 296 0 6 4 15 9 14 SendParse 5 1 8 5 5 -1 0 20 "{2}" "{5}" "," 13 0 805 &4 [X] 13 18 1 11 00000310 16 Ltrim "{4}" 13 8 4 6 1 7 "AttachFile" 18 0 11 00000225 0 280 "{4}" 0 13 11 00000212 0 11 "{0}" "{1} {4}" 10 00000277 7 "" 6 4 18 1 11 00000277 0 11 "{0}" "{1} {4}" 6 5 5 1 3 0 8 5 10 00000024 6 3 15 9 14 GetAddress 5 0 8 5 16 Findit "to:" &0 &5 5 0 16 Findit "subject:" &1 &5 13 18 0 11 00000127 16 Findit "re:" &1 &5 16 Findit "cc:" &2 &5 5 0 16 Findit "attachment:" &3 &5 13 18 0 11 00000241 16 Findit "attachments:" &3 &5 16 CopyClip "{5}" 6 4 15 9 14 FindIt 2 488 1 0 0 8196 "{0}" "" 13 8 4 6 4 5 1 18 0 11 00000256 0 6 "[16422]" 0 6 "[16424]" 0 37 13 8 5 16 StripDown "{0}" "{5}" 13 8 5 6 5 28 1 0 293 13 0 20 [X] 2 "," 13 8 6 6 6 27 2 18 5 11 00000244 6 6 28 2 5 1 15 9 5 0 15 9 6 3 15 9 14 StripDown 0 14 "{0}" 13 8 3 0 14 "{1}" 13 8 4 6 4 6 3 3 1 0 807 "{1}" [X] 13 8 5 5 1 8 6 0 14 "{5}" 13 6 6 18 2 12 00000193 10 00000357 5 1 6 6 3 0 8 6 10 00000107 0 806 "{5}" 1 13 8 7 5 0 0 808 0 " :" "{7}" 13 18 0 11 00000292 10 00000357 10 00000344 0 14 "{5}" 13 5 1 3 1 0 807 "{5}" [X] 13 8 5 10 00000160 6 5 15 9 6 2 15 9 14 CopyClip 0 32 2 7 "This document may contain a table, frame or a footnote; to maintain these items, attach this file to the message. {3} '{4}' to the message?" 8 2 0 293 13 0 20 [X] 2 "," 13 8 5 6 0 5 0 18 0 11 00000265 0 6 "[16420]" 10 00000378 6 5 6 0 18 3 11 00000355 0 6 "[40]" 0 293 13 0 20 [X] 2 "," 13 8 5 10 00000265 0 6 "[37][16424][39]" 0 6 "[20515]" 0 1313 217 24 154 13 11 00000451 2 154 1 10 00000464 0 1038 "" 1 0 6 "[27]" 6 1 15 9 14 DisplayQuestion 27 0 8 2 0 34 0 0 13 11 00000097 7 "Save and attach" 8 3 10 00000114 7 "Attach" 8 3 0 279 1 13 8 4 0 21 "This document may contain a table, frame or a footnote; to maintain these items, attach this file to the message. {3} '{4}' to the message?" 3 "Ami Pro" 13 8 5 5 2 6 5 18 0 11 00000369 5 1 15 9 10 00000697 10 00000697 5 6 6 5 18 0 11 00000643 0 267 13 8 4 6 4 7 "" 18 0 11 00000523 24 104 13 11 00000498 0 267 13 8 4 10 00000510 5 0 15 9 10 00000532 2 103 1 6 2 7 "" 18 0 11 00000586 6 4 28 0 10 00000618 0 16 "{2}" "," "{4}" 13 28 0 5 0 15 9 10 00000697 5 7 6 5 18 0 11 00000697 5 0 15 9 10 00000697 6 1 15 9 14 CheckForFrame 0 1313 24 13 11 00000058 5 1 15 9 0 1313 86 0 13 11 00000100 5 1 15 9 0 1308 13 8 1 6 1 21 2 [X] 0 1309 &2 5 0 0 1044 &2 "Table Text" 13 18 1 11 00000207 5 1 15 9 6 0 15 9 14 DarkModeMacro 5 4 21 3 [X] 0 17 "{0}" 13 8 0 7 "on" 6 0 18 0 11 00000192 0 1313 267 13 28 1 2 466 1 "DarkMode" 4003 0 284 "user,SendMessage,JHHHJ" "{1}" 11 0 "" 10 00000420 7 "off" 6 0 18 0 11 00000420 0 284 "user,SendMessage,JHHHJ" "{1}" 11 1 "" 2 466 1 "DarkMode" 4002 2 466 1 "DarkMode" 4004 0 284 "User,GetClientRect,HHN" "{1}" &3 0 284 "user,InvalidateRect,HHFH" "{1}" &3 1 10 00000420 6 2 15 9 14 InitDDE 0 32 2 5 0 8 4 5 1 8 5 6 5 5 7 18 5 11 00000412 0 1032 "Lotus Notes" 13 11 00000154 7 "Notes" 8 6 7 "Notes" 28 0 10 00000298 0 1032 "cc:Mail" 13 11 00000236 7 "wMail" 8 6 7 "ccMail" 28 0 10 00000298 6 4 5 0 18 0 11 00000298 16 TryToExec 13 8 7 5 1 8 4 5 0 0 8 "{6}" "SendMail" 13 0 805 &2 [X] 13 18 1 11 00000379 10 00000412 6 5 5 1 3 0 8 5 10 00000040 6 2 15 9 6 1 15 9 14 TryToExec 0 286 "LotusMail" "Application" "Win.ini" 13 8 5 0 286 "LotusMail" "Program" "Win.Ini" 13 8 6 5 0 0 14 "{6}" 13 0 805 &1 [X] 13 18 1 11 00000416 7 "\" 0 15 "{6}" "{1}" 1 13 0 805 &2 [X] 13 18 1 11 00000273 6 1 5 1 3 1 8 1 10 00000172 0 806 "{6}" "{1}" 13 8 3 0 14 "{6}" 13 6 1 3 1 0 807 "{6}" [X] 13 8 7 16 tryit "{3}" "{7}" 13 5 31 18 3 11 00000416 5 1 15 9 16 GetProfile "mail" 13 0 20 [X] 1 "," 13 8 8 16 GetProfile "mail" 13 0 20 [X] 2 "," 13 8 9 16 tryit "{8}" "{9}" 13 5 31 18 3 11 00000581 5 1 15 9 7 "your mail service." 8 10 16 Navigate "{10}" &4 13 0 805 &3 [X] 13 5 0 18 1 11 00000772 16 tryit "{3}" "{4}" 13 5 31 18 3 11 00000772 16 writeprofile "{3}" "{4}" 5 1 15 9 5 0 15 9 6 0 15 9 14 tryit 0 781 "{0}" 0 16 "{0}" "{1}" 13 0 22 [X] "" 2 13 15 9 6 2 15 9 14 writeprofile 0 16 "{0}" "," "{1}" 13 0 287 "LotusApps" "Mail" [X] "amipro2.ini" 6 2 15 9 14 getprofile 0 286 "LotusApps" "{0}" "amipro2.ini" 13 0 805 &2 [X] 13 7 "" 18 1 11 00000113 6 2 15 9 0 286 "LotusApps" "{0}" "amipro.ini" 13 15 9 6 1 15 9 14 Navigate 0 802 13 8 4 0 31 9001 "*.exe" 0 31 8007 "{0}" 0 47 112 "{4}!DisplayHelp" 0 26 "." "findapp" 13 0 805 &3 [X] 13 5 1 18 1 11 00000171 5 0 15 9 0 27 9001 13 28 1 0 290 13 15 9 6 2 15 9 14 DisplayHelp 0 284 "user,FindWindow,HCC" "AmiProWndA" 0 13 8 1 0 798 13 0 16 [X] "HelpPack.hlp" 13 8 2 5 135 8 3 0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 "{3}" 6 0 15 9 14 MailBox 0 802 13 8 5 0 32 2 27 1 7 "" 18 1 11 00000268 7 "AMIPRO2.INI" 8 6 0 286 "AmiMailer" "DisplayBox" "{6}" 13 8 7 6 7 7 "" 18 0 11 00000224 7 "yes" 8 7 0 287 "AmiMailer" "DisplayBox" "{7}" "{6}" 6 7 7 "no" 18 0 11 00000268 5 1 15 9 0 271 "Files" 1 27 3 8 8 0 264 "Files" "{8}" 0 31 8000 "{0}" 0 31 8001 "{1}" 0 31 8002 "{2}" 0 41 21 "{5}!Attacher" 0 47 112 "{5}!DisplayHelp" 0 26 "." "mailbox" 13 8 9 6 9 5 1 18 1 11 00000506 0 266 "Files" 5 -1 15 9 0 27 8000 13 28 0 0 27 8001 13 28 1 0 27 8002 13 28 2 0 265 "files" 13 28 3 0 266 "Fil.es" 0 27 20 13 8 10 6 10 5 1 18 0 11 00000715 0 287 "AmiMailer" "DisplayBox" "no" "{6}" 10 00000759 0 287 "AmiMailer" "DisplayBox" "yes" "{6}" 5 1 15 9 6 4 15 9 14 attacher 0 802 13 8 5 0 290 13 8 6 0 31 7999 "{6}" 0 41 21 "{5}!MoveIt" 0 41 22 "{5}!MoveIt" 0 41 20 "{5}!MoveIt" 0 41 0 "{5}!MoveIt" 0 47 112 "{5}!DisplayHelp" 0 26 "." "Attach" 13 8 7 0 284 "User,SetFocus,HH" "{0}" 6 3 15 9 14 MoveIt 0 44 "{0}" 9002 13 8 4 0 44 "{0}" 9001 13 8 5 5 21 6 1 18 0 11 00000334 0 42 "{0}" 9001 13 8 8 0 808 0 "{8}" "]" 13 5 0 18 1 11 00000178 6 3 15 9 0 290 13 0 16 [X] "{8}" 13 0 17 [X] 13 8 9 5 -1 0 1036 "{4}" 1040 -1 "{9}" 13 18 0 11 00000308 0 43 "{0}" 9002 "{9}" 10 00001161 10 00001161 5 22 6 1 18 0 11 00000461 0 1036 "{4}" 1033 0 0 13 8 10 0 1036 "{4}" 1027 "{10}" 0 13 8 11 10 00001161 10 00001161 5 20 6 1 18 0 11 00000941 0 1036 "{4}" 1036 0 0 13 8 12 5 1 8 13 6 12 6 13 18 2 12 00000614 10 00000758 5 1 6 13 3 0 8 13 10 00000535 6 13 5 1 3 1 0 1036 "{4}" 1031 [X] 0 0 42 "{0}" 9002 13 8 6 6 6 7 "" 18 1 11 00000745 0 16 "{14}" ", " "{6}" 13 8 14 10 00000579 6 14 7 "" 18 1 11 00000844 0 14 "{14}" 13 5 2 3 1 0 807 "{14}" [X] 13 8 14 0 264 "Files" "{14}" 0 284 "user,PostMessage,HHHHHH" "{0}" 273 2 0 0 10 00001161 10 00001161 0 265 "Files" 13 8 15 5 1 8 11 5 -1 0 20 "{15}" "{11}" "," 13 0 805 &7 [X] 13 18 1 11 00001161 16 Ltrim "{7}" 13 8 7 6 7 7 "" 18 1 11 00001126 0 43 "{0}" 9002 "{7}" 6 11 5 1 3 0 8 11 10 00000977 6 3 15 9 14 LTrim 6 0 7 " " 18 0 11 00000053 6 1 15 9 0 806 "{0}" 1 13 7 " " 18 0 11 00000163 0 14 "{0}" 13 5 1 3 1 0 807 "{0}" [X] 13 8 0 10 00000053 6 0 15 9 6 1 15 9 DIALOG Attach -2134376448 9 49 56 256 102 "" "AmiDialog" "Attach Files" FONT 8 "Helv" 213 3 40 14 20 1342373889 "button" "OK" 0 213 19 40 14 2 1342373888 "button" "Cancel" 0 3 14 60 80 9001 1352728579 "listbox" "" 0 111 14 98 80 9002 1352728577 "listbox" "" 0 66 32 43 14 21 1342373888 "button" "Move >>" 0 66 50 43 14 22 1342373888 "button" "<< Remove" 0 3 2 82 10 7999 1342177280 "static" "text" 0 112 2 56 10 1001 1342177280 "static" "Attachments:" 0 238 182 10 14 1 1342373888 "button" "&z" 0 DIALOG mailbox -2134376448 9 55 58 198 57 "" "AmiDialog" "Confirm Mail to Send" FONT 8 "Helv" 4 8 28 10 1000 1342177280 "static" "To:" 0 38 6 108 12 8000 1350631552 "edit" "" 0 4 22 28 10 1001 1342177280 "static" "cc:" 0 38 20 108 12 8001 1350631552 "edit" "" 0 4 36 28 10 1002 1342177280 "static" "Subject:" 0 38 34 108 12 8002 1350631552 "edit" "" 0 153 4 40 14 1 1342373889 "button" "OK" 0 153 20 40 14 2 1342373888 "button" "Cancel" 0 153 36 40 14 21 1342373888 "button" "Attach..." 0 DIALOG findapp -2134376448 7 70 35 200 97 "" "" "Find Application" FONT 8 "Helv" 7 34 59 8 1000 1342177280 "static" "&Program path:" 0 6 45 60 44 9001 1352728579 "listbox" "" 0 155 5 40 14 1 1342373889 "button" "OK" 0 155 21 40 14 2 1342373888 "button" "Cancel" 0 68 34 80 8 7999 1342177280 "static" "" 0 7 6 142 9 1006 1342177280 "static" "Change into the directory that contains" 0 7 16 107 8 8007 1342177280 "static" "" 0 00024679